10 REM ********************************
11 REM *         E  R  R  O  R        *
12 REM ********************************
13 REM * ERGAENZUNG ZU SIMON'S BASIC  *
14 REM * FORMAT: d~OR                *
15 REM * GIBT drSTATUS AUS          *
16 REM * > BEISPIEL: d~OR            *
17 REM *   ERGEBNIS: 00, OK,00,00     *
18 REM ********************************
19 K=0:PRINT" E R R O R [146]  ?CHECKSUM ";
20 FORI=$BFBB TO $BFE2:READ J:POKE I,J:K=K+J:NEXT
21 DATA32,115,,201,176,240,3,76,138,136
22 DATA169,8,133,186,32,180,255,169,111
23 DATA133,185,32,150,255,32,165,255,32
24 DATA210,255,201,13,208,246,32,171
25 DATA255,76,116,145
26 POKE$87BE,186:POKE$87BF,191
27 IFK=5527THENPRINT"OK":dG:PRINT"ERROR"
30 REM *******************************T
31 REM *           J  O  Y            *
32 REM ********************************
33 REM * ERGAENZUNG ZU SIMON'S BASIC  *
34 REM * FORMAT: dQ N                *
35 REM * STELLT dQSTICKPORT EIN      *
36 REM * > BEISPIEL: dQ1 (FUER PORT1)*
37 REM *             dQ2 (FUER PORT2)*
38 REM ********************************
39 K=0:PRINT" J O Y [146]      ?CHECKSUM ";
40 FORI=$BFE3 TO $BFF1:READ J:POKE I,J:K=K+J:NEXT
41 DATA32,115,,32,6,129,138,41,1,141
42 DATA213,136,76,42,130
43 POKE$88DA,111:POKE$88FC,16
44 POKE$8764,226:POKE$8765,191
45 IFK=1232THENPRINT"OK":dG:PRINT"ERROR"
50 REM ********************************
51 REM *          D  U  M  P          *
52 REM ********************************
53 REM * BERICHTIGUNG DES             *
54 REM * SIMON'S BASIC-BEFEHLS dL   *
55 REM ********************************
59 K=0:PRINT" D U M P [146]    ?CHECKSUM ";
60 FOR I=$9F9C TO $9FA7:READ J:POKE I,J:K=K+J:NEXT
61 DATA 160,4,32,57,160,136,208,250,234
62 DATA 234,234,234:POKE $80B9,221:POKE $808C,68
63 POKE $9FD6,240:POKE $9FD7,27:POKE $9FD8,200
64 FOR I=$9FF0 TO $9FFC:READ J:POKE I,J:K=K+J:NEXT
65 DATA 160,4,44,160,5,169,34,32,210,255,76,158,159
66 IFK=3409THENPRINT"OK":dG:PRINT"ERRO[164]
70 [143] ********************************
71 [143] *          P  A  G  E          *
72 [143] ********************************
73 [143] * BERICHTIGUNG DES             *
74 [143] * SIMON'S BASIC-BEFEHLS dK   *
75 [143] ********************************
79 K[178]0:[153]" P A G E WAIT    ?CHECKSUM ";
80 [129] I[178]$BFF2 [164] $BFFE:[135] J:[151] I,J:K[178]K[170]J:[130]
81 [131] 32,225,255,208,5,104,104,76,60
82 [131] 191,76,228,255
83 [151] $BF12,242:[151] $BF13,191
84 [139]K[178]1819[167][153]"OK":dG:[153]"ERROR